home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #8 / 1999 CD 8 (black).iso / maskdemo / DATA1.CAB / Program_Executable_Files / Daventry / KQ / MILLTREE.CS < prev    next >
Encoding:
Text File  |  1998-12-15  |  1.7 KB  |  64 lines
  1. echo from milltree.cs $1 $2 $3 $4
  2. if test $2 == Init
  3. else if test $2 == ConnorAction
  4.    if test $4 == do
  5.       if test $Daventry::MillTree::down == 0
  6.          KQMonster::speak Connor Connor 1000 22 14 20 1 1
  7.       else
  8.          KQMonster::speak Connor Connor 1000 22 0 109 1 1
  9.       endif
  10.    endif
  11. else if test $2 == Die
  12.     if test $Daventry::MillTree::down == 0
  13.        set Abort 0
  14.        KQMonster::checkInventory Connor Dagger
  15.        if test $Console::Return == 1
  16.           set Abort 1
  17.        endif
  18.        KQMonster::checkInventory Connor Fists
  19.        if test $Console::Return == 1
  20.           set Abort 1
  21.        endif
  22.        if test $Abort == 0
  23.             set Daventry::MillTree::down 1
  24.             setThirdPerson
  25.             handsOff 1
  26.             addMapIcon dv_tree2.bmp 137 269 davmap.pbm
  27.             KQMonster::setState Connor Special 'stopwalkstop'
  28.             KQCamera::follow none
  29.             move KQCamera 0 181270 240450 9050 0 0 -2.44
  30.             checkDistance Connor 188500 236500 7650 1500
  31.             if test $Console::Return == 1
  32.                 move Connor 3 0 1000 0
  33.             endif
  34.             sendEvent 0.5 $1 KQAnimPlayEvent Falling
  35.         else
  36.             KQMonster::speak Connor Connor 1000 22 12 20 1 1
  37.        endif
  38.     endif
  39. else if test $2 == EndLoop
  40.    if test $3 == Falling
  41.       deleteObject WaterwheelSound
  42.       deleteObject WatermillSound
  43.       terAnimSwitch FullStream 0
  44.       sendEvent 0 millwheel KQAnimPlayEvent slow
  45.       sendEvent 0 milgear1 KQAnimPlayEvent stop
  46.       sendEvent 0 milgear2 KQAnimPlayEvent stop
  47.       sendEvent 4 $1 KQCueEvent 1 0
  48.    endif
  49. else if test $2 == Cue
  50.     if test $3 == 1      
  51.          sendEvent 0 Connor KQStatsChangeRequestEvent 0 0 0 0 50
  52.         KQCamera::follow Connor
  53.         handsOff 0
  54.         setThirdPerson
  55.         deleteObject MillTree
  56.         loadKQ milltre2.kq
  57.         loadKQ milltre3.kq
  58.         loadKQ dock3.kq
  59.    endif
  60. endif
  61. endif
  62. endif
  63. endif
  64. endif